Graphics Plus/Graphics Plus.iso/general/msdl/example.lha/example-scenes/cgu_backroom.lha/cgu_backroom.msdl

Text File | 1993-11-03 | 25.3 KB | 2,035 lines

                     /*         cgu_backroom.dat            */

     /*   THIS IS A SCENE WHICH DESCRIBES THE ROOM SIMILAR TO THE */
     /*    BACK ROOM OF THE CGU IN THE COMPUTER SCIENCE BUILDING  */

/* This is an approximate model of the backroom of the Manchester Computer */
/* Graphics Unit. Its not really very tidy (just like the real thing :-) */
/* Probably the most interesting thing about it is the model of an X-Terminal*/
/* and the TIFF file shows a close up of the model. */
/* Everything other than a solitary desk has been commented out, so you can */
/* arrange the furniture as you please! */
/* Notice that we placed a single spot light over the desk to get the */
/* image ( i couln't be bothered getting the radiosity ARTCore code working)*/
/* You'll probably want to delete it! */
/* Scene measured Richard Andrews, and messed up by Martin Preston */

    /*   anything enclosed by forward slash and stars requires setting  */

        view
             from       71.09   384.98   125.84
             towards    512.0 1908.26 -609.27
             up         0   0   1
    window 0 0 0 0
        end



defprops
        fluorescent_light
        emission  10.0   10.0    5.0
end



defprops
        glass
           drc     0      0      0
           src     0.7    0.7    0.7
           phexp  80
           index   1.7    1.7    1.7
end



defprops
        antique_white
           drc     0.9  0.9  0.9
           phexp  10
           /*texture file tile*/
end



defprops
        oak
           drc     0.92  0.847  0.447
           src     0.25  0.25  0.25
           phexp  30
           /*texture file wood*/
end



defprops
        zinc_white
           drc     0.99  0.97  1.0
           phexp  60
end



defprops
        ivory
           drc     1     1     0.9412
           phexp  10
end



defprops
        lamp_black
           drc     0.01  0.01  0.01
           phexp  10
end



defprops
        pine
           drc     0.59  0.001  0.09
           src     0.2   0.2   0.2
           phexp  60
           /*texture file wood*/
end



defprops
        ivory_black
           drc       0.16  0.14  0.13
           phexp    5
end



defprops
        beige
           drc     0.64  0.58  0.5
           phexp  20
end



defprops
        slate_grey_dark
             drc       0.1843 0.3098 0.3098
           phexp  30
end


defprops
        monitor_picture
           /*texture file graphics*/
end



defprops
        ghost_white
           drc       0.9725 0.9725 1.0000
       phexp  10
           /*texture file breeze_block*/
end



defprops
        silver
           drc       0.3   0.3   0.3
       src       0.7     0.7   0.7
       phexp  40
end



defprops
        alizarin_crimson
           drc       0.89  0.15  0.21
           phexp  10
           /*texture file carpet_pattern*/
end



defprops
        mint_cream
           drc       0.9608 1.0000 0.9804
           phexp  70
end



defprops
        book_title1
           /*texture file picture_perfect*/
end



defprops
        book_title2
           /*texture file university_statistics*/
end



defprops
        book_title3
           /*texture file graphics_simulation*/
end



defprops
        book_title4
           /*texture file visualization*/
end



defprops
        book_title5
           /*texture file envisioning_information*/
end



defprops
        book_title6
           /*texture file phigs*/
end



defprops
        book_title7
           /*texture file ms_dos_5*/
end



defprops
        book_title8
           /*texture file turbo_c*/
end



defprops
        book_title9
           /*texture file vms*/
end



defprops
        book_title10
           /*texture file famous_five_ride_again*/
end



defobj unit_cube

   box
      0 0 0
      1 1 1
   end

end



defobj unitbox

   box
      -0.5 -0.5 -0.5
       0.5  0.5  0.5
   end

end



defobj monitor_stand

   instobj unit_cube
      scale 30 30 1
    rotate z -45
      shift 4 6 6
   end


   cylinder  19 21 7
             19 21 15
             5
             instprops beige
   end

end



defobj system_box

   instobj unit_cube
      instprops beige
      rotate z -45
      scale 39 36 5
      shift 0 0 1
   end


   instobj unit_cube
      rotate z -45
      instprops beige
      scale 37 34 1
      shift 1 1 0
   end

end



defobj monitor

   polygon
           6
           0 0  30
           0 5  30
           0 5  26
           0 35 22
           0 35 0
           0 0  0
           instprops beige
    rotate z -45
   end


   polygon
           4
           0  35 22
           36 35 22
           36 35 0
           0  35 0
           instprops beige
   rotate z -45
   end


   polygon
           4
           0  5  26
           36 5  26
           36 35 22
           0  35 22
           instprops beige
     rotate z -45
   end


   polygon
           4
           0  5  30
           36 5  30
           36 5  26
           0  5  26
           instprops beige
     rotate z -45
   end


   polygon
           4
           0  0  30
           36 0  30
           36 5  30
           0  5  30
           instprops beige
     rotate z -45
   end


   polygon
           6
           0 35 22
           0 5  26
           0 5  30
           0 0  30
           0 0  0
           0 35 0
           instprops beige
     rotate z -45
   end

/* Hack */

   polygon
           6
           36 35 22
           36 5  26
           36 5  30
           36 0  30
           36 0  0
           36 35 0
           instprops beige

     rotate z -45
/*    shift 29.0 -22.0 0.0 */
   end


   polygon
           4
           36 0  0
           0  0  0
           0  35 0
           36 35 0
           instprops beige
      rotate z -45
   end


   polygon
           6
           33 0 30
           0  0 30
           0  0 0
           3  0 0
           3  0 27
           33 0 27
           instprops beige
     rotate z -45
   end

   polygon
           6
           36 0 30
           33 0 30
           33 0 5
           3  0 5
           3  0 0
           36 0 0
           instprops beige
           rotate z -45
   end


   polygon
           4
           3 1 27
           3 0 27
           3 0 5
           3 1 5
           instprops beige
       rotate z -45
   end


   polygon
           4
           3  1 5
           3  0 5
           33 0 5
           33 1 5
           instprops beige
     rotate z -45
   end


   polygon
           4
           33 0 27
           33 1 27
           33 1 5
           33 0 5
           instprops beige
    rotate z -45
   end


   polygon
           4
           3  0 27
           3  1 27
           33 1 27
           33 0 27
           instprops beige
     rotate z -45
   end


   polygon
           4
           33 1 27
           3  1 27
           3  1 5
           33 1 5
           instprops monitor_picture
      rotate z -45
   end

end


defobj workstation

   instobj system_box
     rotate z -45
   end


   instobj monitor_stand
     rotate z -45
   end


   instobj monitor

     shift 0 0 7
   end

end



defobj desk_top
   instobj unit_cube
      instprops oak
      scale 126 67 2
   end
end



defobj verticalside
   instobj unit_cube
      instprops oak
      scale 2 56 54
   end
end



defobj back_bit
   instobj unit_cube
      instprops oak
      scale 118 2 54
   end
end



defobj handle
   instobj unit_cube
      instprops silver
      scale 10 1 3
   end
end

defobj drawer_fronts                   /* note: these polygons are not */
                                        /*          ed           */
   instobj handle
      shift 13 -1 12
   end


   instobj handle
      shift 13 -1 30
   end


   instobj handle
      shift 13 -1 48
   end


   polygon 4
           36 0 18
           0  0 18
           0  0 0
           36 0 0
           instprops oak
   end

   polygon 4
           36 0 36
           0  0 36
           0  0 18
           36 0 18
           instprops oak
   end

   polygon 4
           36 0 54
           0  0 54
           0  0 36
           36 0 36
           instprops oak
   end

end



defobj foot
   cylinder 2 2 0 capped
            2 2 2 capped
            2
            instprops ivory_black
   end
end



defobj long_leg

   instobj unit_cube
      instprops ivory_black
      scale 3 3 68
      shift 0 0 2
   end


   instobj foot
   end

end



defobj ing_bar

   instobj unit_cube
      instprops ivory_black
      scale 3 50 3
   end

end



defobj short_leg

   instobj unit_cube
      instprops ivory_black
      scale 3 3 14
      shift 0 0 2
   end


   instobj foot
   end

end



defobj desk

   instobj desk_top
      shift 0 0 70
   end


   instobj verticalside
      shift 122 1 16
   end


   instobj verticalside
      shift 84 1 16
   end


   instobj back_bit
      shift 6 57 16
   end


   instobj drawer_fronts
      shift 86 1 16
   end


   instobj long_leg
      shift 6 1 0
   end


   instobj ing_bar
      shift 6 4 16
   end


   instobj long_leg
      shift 6 54 0
   end


   instobj short_leg
      shift 103 10 0
   end

   instobj short_leg
      shift 103 50 0
   end

end


defobj key

   polygon 4
           1.5 0.3 1
           0.3 0.3 1
           0   0   0
           1.8 0   0
           instprops beige
   end




   polygon 4
           1.5 1.5 1
           1.5 0.3 1
           1.8 0   0
           1.8 1.8 0
           instprops beige
   end


   polygon 4
           0.3 1.5 1
           1.5 1.5 1
           1.8 1.8 0
           0   1.8 0
           instprops beige
   end


   polygon 4
           0.3 0.3 1
           0.3 1.5 1
           0   1.8 0
           0   0   0
           instprops beige
   end


   polygon 4                            /* this polygon is the top of  */
           1.5 1.5 1                    /* the key. So if the function */
           0.3 1.5 1                    /* of the key needs to be shown*/
           0.3 0.3 1                    /*   this is where to do it !  */
           1.5 0.3 1
           instprops beige
   end

end

defobj nontaperkey
    /* This is a special key used if we don't want it
       to taper off too much at the side!. Otherwise when
       we stretch it we get a key that looks like something out of
       IKEA */
   polygon 4
           1.5 0.0 1
           0.0 0.0 1
           0   0   0
           1.5 0   0
           instprops beige
   end




   polygon 4
           1.5 1.5 1
           1.5 0.0 1
           1.5 0   0
           1.5 1.5 0
           instprops beige
   end


   polygon 4
           0.0 1.5 1
           1.5 1.5 1
           1.5 1.5 0
           0   1.5 0
           instprops beige
   end


   polygon 4
           0.0 0.0 1
           0.0 1.5 1
           0   1.5 0
           0   0   0
           instprops beige
   end


   polygon 4                            /* this polygon is the top of  */
           1.5 1.5 1                    /* the key. So if the function */
           0.0 1.5 1                    /* of the key needs to be shown*/
           0.0 0.0 1                    /*   this is where to do it !  */
           1.5 0.0 1
           instprops beige
   end

end



defobj row_of_11_keys

   instobj key
   end


   instobj key
      shift 1.8 0 0
   end


   instobj key
      shift 3.6 0 0
   end


   instobj key
      shift 5.4 0 0
   end


   instobj key
      shift 7.2 0 0
   end


   instobj key
      shift 9 0 0
   end


   instobj key
      shift 10.8 0 0
   end


   instobj key
      shift 12.6 0 0
   end


   instobj key
      shift 14.4 0 0
   end


   instobj key
      shift 16.2 0 0
   end


   instobj key
      shift 18 0 0
   end


end



defobj row_of_4_keys

   instobj key
   end


   instobj key
      shift 1.8 0 0
   end


   instobj key
      shift 3.6 0 0
   end


   instobj key
      shift 5.4 0 0
   end

end



defobj row_of_3_keys

   instobj key
   end


   instobj key
      shift 1.8 0 0
   end


   instobj key
      shift 3.6 0 0
   end

end



defobj tab_key

   instobj key
      scale 1.5 1.0 1.0
   end

end



defobj shift_key

   instobj key
      scale 2 1.0 1.0
   end

end


defobj return_key

   instobj key
      scale 1.0 2 1.0
   end

end



defobj space_bar

   instobj nontaperkey
      scale 7.5 1.0 1.0
   end

end



defobj keyboard

     /* The main box of the keyboard */
   instobj unit_cube
      instprops beige
      scale 48 18 2
   end

    /*  Top row of function keys  */
   instobj row_of_4_keys
      shift 2 13.8 2
   end


   instobj row_of_4_keys
      shift 13 13.8 2
   end


   instobj row_of_4_keys
      shift 23 13.8 2
   end


   instobj row_of_3_keys
      shift 31.5 13.8 2
   end


   instobj row_of_4_keys
      shift 39 13.8 2
   end



   instobj row_of_11_keys                     /*     row 1         */
      shift 3 10 2
   end


   instobj key
      shift 22.8 10 2
   end


   instobj key
      shift 24.6 10 2
   end


   instobj tab_key
      shift 26.4 10 2
   end


   instobj row_of_3_keys
      shift 31.5 10 2
   end


   instobj row_of_4_keys
      shift 39 10 2
   end


   instobj tab_key                             /*      row 2          */
      shift 3 8.2 2
   end


   instobj row_of_11_keys
      shift 5.7 8.2 2
   end


   instobj key
      shift 25.5 8.2 2
   end


   instobj row_of_3_keys
      shift 31.5 8.2 2
   end


   instobj row_of_4_keys
      shift 39 8.2 2
   end


   instobj key                            /*         row 3           */
      shift 1.5 6.4 2
   end


   instobj tab_key
      shift 3.3 6.4 2
   end


   instobj row_of_11_keys
      shift 6 6.4 2
   end


   instobj key
      shift 25.8 6.4 2
   end


   instobj return_key
      shift 27.6 6.4 2
   end


   instobj key
      shift 33.3 6.4 2
   end


   instobj row_of_4_keys
      shift 39 6.4 2
   end


   instobj shift_key                       /*      row 4             */
      shift 1.5 4.6 2
   end


   instobj row_of_11_keys
      shift 5.1 4.6 2
   end


   instobj shift_key
      shift 24.9 4.6 2
   end


   instobj row_of_3_keys
      shift 31.5 4.6 2
   end


   instobj row_of_4_keys
      shift 39 4.6 2
   end


   instobj tab_key                        /*       row 5              */
      shift 5 2.8 2
   end


   instobj tab_key
      shift 7.7 2.8 2
   end


   instobj space_bar
      shift 10.4 2.8 2
   end


   instobj tab_key
      shift 23.9 2.8 2
   end


   instobj tab_key
      shift 26.6 2.8 2
   end

   instobj row_of_4_keys
      shift 39 2.8 2
   end

end


defobj chair_foot

   instobj unitbox
      instprops silver
      scale 30 1 4
   end

end



defobj stem

   cylinder 0 0 4  capped
            0 0 29 capped
            2
            instprops silver
   end


   cylinder 0 0 29 capped
            0 0 49 capped
            1
            instprops silver
   end

end



defobj seat

   instobj unitbox
      instprops slate_grey_dark
      scale 42 38 6
   end

end



defobj seat_bracket

   instobj unitbox
      instprops silver
      scale 6 18 1
   end


   instobj unitbox
      instprops silver
      scale 6 1 31
      shift 0 8.5 1
   end

end



defobj back_bit

   instobj unitbox
      instprops slate_grey_dark
      scale 42 6 28
   end

end


defobj office_chair

   instobj chair_foot
   end


   instobj chair_foot
      rotate z 90
   end


   instobj chair_foot
      rotate z 90
   end


   instobj chair_foot
      rotate z 90
   end


   instobj stem
   end


   instobj seat
      shift 0 0 52
   end

   instobj seat_bracket
      shift 0 23.5 51.5
   end


   instobj back_bit
      shift 0 24 64
   end

end



defobj work_desk

   instobj desk
   end


   instobj workstation
      shift 77 32 77
   end


   instobj keyboard
/* Hack put in by Martin to get his animator to get it right */
      scale -1.0 1.0 1.0
      shift 80 10 72

   end


end



defobj back_bit
   instobj unitbox
      instprops pine
      scale 104 204 2
      shift 52 26 0
   end
end



defobj side1
   instobj unitbox
      instprops pine
      scale 2 25 204
      shift 1 0 0
   end
end



defobj side2
   instobj side1
      instprops pine
      shift 102 0 0
   end
end



defobj shelfbottom
   instobj unitbox
      instprops pine
      scale 100 25 2
      shift 52 12.5 1
   end
end



defobj shelf1
   instobj shelfbottom
      instprops pine
      shift 0 202 44
   end
end



defobj shelf2
   instobj shelfbottom
      instprops pine
      shift 0 202 84
   end
end



defobj shelf3
   instobj shelfbottom
      instprops pine
      shift 0 202 124
   end
end



defobj shelf4
   instobj shelfbottom
      instprops pine
      shift 0 202 164
   end
end



defobj shelftop
   instobj shelfbottom
      instprops pine
      shift 0 202 204
   end
end



defobj bookcase

   instobj back_bit
   end


   instobj side1
   end


   instobj side2
   end


   instobj shelfbottom
   end


   instobj shelf1
   end


   instobj shelf2
   end


   instobj shelf3
   end


   instobj shelf4
   end


   instobj shelftop
   end


end



defobj book1

   polygon 4
           5 0 30
           0 0 30
           0 0 0
           5 0 0
           instprops book_title1
   end

end



defobj book2

   polygon 4
           10 0 30
           5 0 30
           5 0 0
           10 0 0
           instprops book_title2
   end

end



defobj book3

   polygon 4
           15 0 30
           10  0 30
           10  0 0
           15 0 0
           instprops book_title3
   end

end



defobj book4

   polygon 4
           20 0 30
           15 0 30
           15 0 0
           20 0 0
           instprops book_title4
   end

end



defobj book5

   polygon 4
           25 0 30
           20 0 30
           20 0 0
           25 0 0
           instprops book_title5
   end

end



defobj book6

   polygon 4
           30 0 30
           25 0 30
           25 0 0
           30 0 0
           instprops book_title6
   end

end



defobj book7

   polygon 4
           35 0 30
           30 0 30
           30 0 0
           35 0 0
           instprops book_title7
   end

end



defobj book8

   polygon 4
           40 0 30
           35 0 30
           35 0 0
           40 0 0
           instprops book_title8
   end

end



defobj book9

   polygon 4
           45 0 30
           40 0 30
           40 0 0
           45 0 0
           instprops book_title9
   end

end



defobj book10

   polygon 4
           50 0 30
           45 0 30
           45 0 0
           50 0 0
           instprops book_title10
   end

end



defobj vertical_books           /* note that the individual books */
                                 /*      are not ed         */
   instobj book1
   end

   instobj book2
   end

   instobj book3
   end

   instobj book4
   end

   instobj book5
   end

   instobj book6
   end

   instobj book7
   end

   instobj book8
   end

   instobj book9
   end

   instobj book10
   end

end



defobj bookcase_with_books

   instobj bookcase
   end


   instobj vertical_books
      shift 2 0 164
   end


   instobj vertical_books
      shift 52 0 164
   end


   instobj vertical_books
      shift 2 0 124
   end


   instobj vertical_books
      shift 52 0 124
   end


   instobj vertical_books
      shift 2 0 84
   end


   instobj vertical_books
      shift 52 0 84
   end


   instobj vertical_books
      shift 2 0 44
   end


   instobj vertical_books
      shift 52 0 44
   end


   instobj vertical_books
      shift 2 0 2
   end


   instobj vertical_books
      shift 52 0 2
   end

end



defobj table_top

   instobj unit_cube
      instprops mint_cream
      scale 20 15 4
   end

end



defobj table_leg

   instobj unit_cube
      instprops oak
      scale 2 2 20
   end

end



defobj table

   instobj table_top
      shift 0 0 20
   end


   instobj table_leg
      shift 2 2 0
   end


   instobj table_leg
      shift 16 2 0
   end


   instobj table_leg
      shift 16 11 0
   end


   instobj table_leg
      shift 0 11 0
   end


end



defobj window_glass

    polygon 4
            0 66 235
            0 0  235
            0 0  125
            0 66 125
            instprops glass
    end

end



defobj walls

    /* windows between room and Mary's office and Terry's office*/
    instobj window_glass
       shift 0 5 0
    end


    instobj window_glass
       shift 0 76 0
    end


    instobj window_glass
       shift 0 147 0
    end


    instobj window_glass
       shift 0 218 0
    end


    instobj window_glass
       shift 0 289 0
    end


    instobj window_glass
       shift 0 437 0
    end


    instobj window_glass
       shift 0 570 0
    end


    instobj window_glass
       shift 0 583 0
    end


    instobj window_glass
       shift 0 656 0
    end


    /* door handle */
    instobj unit_cube
       instprops silver
       scale 4 10 4
       shift 0 370 120
    end


    polygon 8
            0 730 240
            0 0   240
            0 0   120
            0 360 120
            0 360 200
            0 430 200
            0 430 120
            0 730 240
            instprops zinc_white
    end


    polygon 4
            0 425 235
            0 365 235
            0 365 205
            0 425 205
            instprops glass
    end


    polygon 4
            0 360 120
            0 0   120
            0 0   10
            0 360 10
            instprops ivory
    end


    polygon 4
            0 360 10
            0 0   10
            0 0   0
            0 360 0
            instprops lamp_black
    end


    polygon 4
            0 730 120
            0 430 120
            0 430 10
            0 730 10
            instprops ivory
    end


    polygon 4
            0 730 10
            0 430 10
            0 430 0
            0 730 0
            instprops lamp_black
    end


    /* door */
    polygon 4
            0 430 200
            0 360 200
            0 360 0
            0 430 0
            instprops pine
    end

    /* far wall */
    polygon 4
            512 730 240
            0   730 240
            0   730 10
            512 730 10
            instprops ghost_white
    end


    polygon 4
            512 730 10
            0   730 10
            0   730 0
            512 730 0
            instprops lamp_black
    end


    /* wall between room and print room */
    polygon 8
            512 0   240
            512 730 240
            512 730 10
            512 700 10
            512 700 200
            512 600 200
            512 600 10
            512 0   10
            instprops ivory
    end


    polygon 4
            512 700 10
            512 730 10
            512 730 0
            512 700 10
            instprops lamp_black
    end


    polygon 4
            512 0   10
            512 600 10
            512 600 0
            512 0   0
            instprops lamp_black
    end


    /* door between room and print room */
    polygon 4
            512 600 200
            512 700 200
            512 700 0
            512 600 0
            instprops pine
    end

end



defobj flu_light

   instobj unit_cube
      instprops fluorescent_light
      scale 211 10 15
   end

end



defobj ceiling

   instobj flu_light
      shift 30 175 225
   end


   instobj flu_light
      shift 30 350 225
   end


   instobj flu_light
      shift 30 525 225
   end


   instobj flu_light
      shift 271 175 225
   end


   instobj flu_light
      shift 271 350 225
   end


   instobj flu_light
      shift 271 525 225
   end


   polygon 4
           512 0   240
           0   0   240
           0   730 240
           512 730 240
           instprops antique_white
   end


end



defobj floor

   polygon 4
           512 730 0
           0   730 0
           0   0   0
           512 0   0
           instprops alizarin_crimson
   end

end

/* A simple spot light over the only desk in the scene */

spot
  67 400 100
  67 400 0
  1.0 1.0 1.0
  10  45

   instobj walls
   end


   instobj ceiling
   end


   instobj floor
   end

/*
   instobj work_desk
      rotate z 90
      shift 67 110 0
   end
*/

   instobj office_chair
      rotate z -90
      shift 90 100 0
   end


   instobj work_desk
      shift 67 536 0
   end

/*
   instobj work_desk
      rotate z 90
      shift 67 603 0
   end


   instobj work_desk
      shift 67 663 0
   end


   instobj desk
      shift 193 663 0
   end


   instobj work_desk
      shift 319 663 0
   end


   instobj work_desk
      rotate z -90
      shift 512 126 0
   end
*/

   instobj bookcase
      shift 408 127 0
   end


   instobj bookcase_with_books
      rotate z 180
      shift 512 154 0
   end

/*
   instobj work_desk
      rotate z -90
      shift 512 281 0
   end

*/
   instobj desk
      shift 386 348 0
   end


   instobj table
      shift 220 500 0
   end